home *** CD-ROM | disk | FTP | other *** search
/ Aminet 33 / Aminet 33 - October 1999.iso / Aminet / util / cli / cliutils_mra.lha / Sources / AskErr.a next >
Encoding:
Text File  |  1997-06-18  |  1.1 KB  |  63 lines
  1. ;
  2. ; $VER: AskErr.a  by Mauro Panigada
  3. ;
  4. ; Started: 11-04-1996 (day/month/year)
  5. ; Finished: 11-04-1996                   FREEWARE
  6. ;
  7. ; PURPOSE: Give a help when AmigaDOS says "Can't examine "c2": error 205"
  8. ; I do not know if there is an analog program.
  9. ;
  10. ; Short and very simple, without added stuff which could make it better
  11. ; (more user-friendly, but the same quality!).
  12. ;
  13.  
  14.  
  15.         incdir    "dh0:progr/assem/include/"
  16.         include    "exec/types.i"
  17.         include    "exec/libraries.i"
  18.         include    "exec/exec_lib.i"
  19.         include    "dos/dos_lib.i"
  20.  
  21.  
  22.         bra.s    start
  23.  
  24.         dc.b    "$VER: AskErr v1.0 written by Mauro Panigada",0
  25.         even
  26.  
  27. start        moveq    #36,d0
  28.         lea    dosname(pc),a1
  29.         move.l    4.w,a6
  30.         jsr    _LVOOpenLibrary(a6)
  31.         tst.l    d0
  32.         beq.s    fastend
  33.  
  34.         move.l    d0,a6
  35.         move.l    #template,d1
  36.         clr.l    -(sp)
  37.         move.l    sp,d2
  38. ;move.l    #array,d2
  39.         moveq    #0,d3
  40.         jsr    _LVOReadArgs(a6)
  41.         move.l    (sp)+,a0
  42.         move.l    d0,d5
  43.         beq.s    exit0
  44. ;move.l    array,a0
  45.         move.l    (a0),d1
  46.         moveq    #0,d2
  47.         jsr    _LVOPrintFault(a6)
  48.         move.l    d5,d1
  49.         jsr    _LVOFreeArgs(a6)
  50. exit0        move.l    a6,a1
  51.         move.l    4.w,a6
  52.         jsr    _LVOCloseLibrary(a6)
  53. fastend        rts
  54.  
  55. dosname        dc.b    "dos.library",0
  56.         even
  57. template    dc.b    "ERROR/N/A",0
  58.         even
  59. ;array        dc.l    0
  60.  
  61.  
  62.         END
  63.